home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / T / Think-Pascal-7.0.cpt / THINK Pascal Interfaces / ROMDefs.p < prev    next >
Encoding:
Text File  |  1991-04-03  |  4.6 KB  |  108 lines  |  [TEXT/PJMM]
  1. {    This file has been processed by The THINK Pascal Source Converter, v1.1.    }
  2.  
  3. {
  4. Created: Sunday, January 6, 1991 at 11:06 PM
  5.     ROMDefs.p
  6.     Pascal Interface to the Macintosh Libraries
  7.  
  8.         Copyright Apple Computer, Inc.    1986-1990
  9.         All rights reserved
  10. }
  11.  
  12.  
  13. {$IFC UNDEFINED UsingIncludes}
  14. {$SETC UsingIncludes := 0}
  15. {$ENDC}
  16.  
  17.  
  18.     UNIT ROMDefs;
  19.     INTERFACE
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26. CONST
  27. appleFormat = 1;                        {Format of Declaration Data (IEEE will assign real value)}
  28. romRevision = 1;                        {Revision of Declaration Data Format}
  29. testPattern = 1519594439;               {FHeader long word test pattern}
  30.  
  31. sCodeRev = 2;                           {Revision of code (For sExec)}
  32. sCPU68000 = 1;                          {CPU type = 68000}
  33. sCPU68020 = 2;                          {CPU type = 68020}
  34. sCPU68030 = 3;                          {CPU type = 68030}
  35. sCPU68040 = 4;                          {CPU type = 68040}
  36. sMacOS68000 = 1;                        {Mac OS, CPU type = 68000}
  37. sMacOS68020 = 2;                        {Mac OS, CPU type = 68020}
  38. sMacOS68030 = 3;                        {Mac OS, CPU type = 68030}
  39. sMacOS68040 = 4;                        {Mac OS, CPU type = 68040}
  40.  
  41. board = 0;                              {Board sResource - Required on all boards}
  42. displayVideoAppleTFB = 16843009;        {Video with Apple parameters for TFB card.}
  43. displayVideoAppleGM = 16843010;         {Video with Apple parameters for GM card.}
  44. networkEtherNetApple3Com = 33620225;    {Ethernet with apple parameters for 3-Comm card.}
  45. testSimpleAppleAny = -2147417856;       {A simple test sResource.}
  46. endOfList = 255;                        {End of list}
  47. defaultTO = 100;                        {100 retries.}
  48.  
  49. sRsrcType = 1;                          {Type of sResource}
  50. sRsrcName = 2;                          {Name of sResource}
  51. sRsrcIcon = 3;                          {Icon}
  52. sRsrcDrvrDir = 4;                       {Driver directory}
  53. sRsrcLoadDir = 5;                       {Load directory}
  54. sRsrcBootRec = 6;                       {sBoot record}
  55. sRsrcFlags = 7;                         {sResource Flags}
  56. sRsrcHWDevId = 8;                       {Hardware Device Id}
  57. minorBaseOS = 10;                       {Offset to base of sResource in minor space.}
  58. minorLength = 11;                       {Length of sResource’s address space in standard slot space.}
  59. majorBaseOS = 12;                       {Offset to base of sResource in Major space.}
  60. majorLength = 13;                       {Length of sResource in super slot space.}
  61. sRsrccicn = 15;                         {Color icon}
  62. sRsrcicl8 = 16;                         {8-bit (indexed) icon}
  63. sRsrcicl4 = 17;                         {4-bit (indexed) icon}
  64. sGammaDir = 64;                         {sGamma directory}
  65. sDRVRDir = 16;                          {sDriver directory}
  66.  
  67. drSwApple = 1;                          {To ask for or define an Apple-compatible SW device.}
  68. drHwTFB = 1;                            {HW ID for the TFB (original Mac II) video card.}
  69. drHw3Com = 1;                           {HW ID for the Apple EtherTalk card.}
  70. drHwBSC = 3;
  71. catBoard = 1;                           {Category for board types.}
  72. catTest = 2;                            {Category for test types -- not used much.}
  73. catDisplay = 3;                         {Category for display (video) cards.}
  74. catNetwork = 4;                         {Category for Networking cards.}
  75.  
  76. boardId = 32;                           {Board Id}
  77. pRAMInitData = 33;                      {sPRAM init data}
  78. primaryInit = 34;                       {Primary init record}
  79. timeOutConst = 35;                      {Time out constant}
  80. vendorInfo = 36;                        {Vendor information List. See Vendor List, below}
  81. boardFlags = 37;                        {Board Flags}
  82. secondaryInit = 38;                     {Secondary init record/code}
  83. sRsrcVidNames = 65;                     {Video mode name directory}
  84.  
  85. vendorId = 1;                           {Vendor Id}
  86. serialNum = 2;                          {Serial number}
  87. revLevel = 3;                           {Revision level}
  88. partNum = 4;                            {Part number}
  89. date = 5;                               {Last revision date of the card}
  90.  
  91. typeBoard = 0;                          {Type for board types.}
  92. typeApple = 1;
  93. typeVideo = 1;                          {Type for video types.}
  94. typeEtherNet = 1;                       {Type for ethernet types.}
  95. testByte = 32;                          {Test byte.}
  96. testWord = 33;                          {0021}
  97. testLong = 34;                          {Test Long.}
  98. testString = 35;                        {Test String.}
  99.  
  100.  
  101.     { UsingROMDefs }
  102.  
  103.  
  104.     IMPLEMENTATION
  105. END.
  106.  
  107.  
  108.